home *** CD-ROM | disk | FTP | other *** search
/ Next Step: Mars? / Next Step Mars (1994)(IVI).iso / unearth.dir / 00315_Script_315 < prev    next >
Text File  |  1994-11-29  |  2KB  |  63 lines
  1.  
  2. on checkKey
  3.   if the key = RETURN then
  4.     if field "passwordbox" contains "plasma" then
  5.       go to frame "start"
  6.     else
  7.       go to frame "nopass"
  8.     end if
  9.     when keydown then nothing
  10.   end if
  11. end checkkey
  12.  
  13. on firstFrame
  14.   global qtSprite
  15.   set the movieRate of sprite qtSprite = 0
  16.   set the movieTime of sprite qtSprite = 0
  17. end firstFrame
  18.  
  19. on lastFrame
  20.   global qtSprite,qtcastname
  21.   set the movieTime of sprite qtSprite = the duration of cast qtcastName
  22. end lastFrame
  23.  
  24. on stepFwdQT
  25.   global qtSprite,qtcastname
  26.   set the movieRate of sprite qtSprite = 0
  27.   if the movieTime of sprite qtSprite < the duration of cast qtcastname then
  28.     set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite + 1
  29.   end if
  30. end stepFwdQT
  31.  
  32. on stepRevQT
  33.   global qtSprite
  34.   set the movieRate of sprite qtSprite = 0
  35.   if the movieTime of sprite qtSprite = 0 then exit
  36.   set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite - 1
  37. end stepRevQT
  38.  
  39. on frameCounter
  40.   global qtSprite
  41.   set the text of cast "counter" to string(the movieTime of sprite qtSprite)
  42. end frameCounter
  43.  
  44. --on rewindQT
  45.   global qtSprite
  46.   set the movieRate of sprite qtSprite = -3
  47.   --set the movieTime of sprite qtSprite = 0
  48. end rewindQT
  49.  
  50. on pauseQT
  51.   global qtSprite
  52.   set the movieRate of sprite qtsprite = 0
  53. end pauseQT
  54.  
  55. on playQT
  56.   global qtSprite,qtcastName
  57.   set the movieRate of sprite qtSprite = 1
  58. end playQT
  59.  
  60. on playQT2
  61.   global qtSprite,qtcastName
  62.   set the movieRate of sprite qtSprite = 1
  63. end playQT2